home *** CD-ROM | disk | FTP | other *** search
- card_2152.xml
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
- <card>
- <id>2152</id>
- <filler1>0</filler1>
- <bitmap>BMAP_4590.pbm</bitmap>
- <cantDelete> <false /> </cantDelete>
- <showPict> <true /> </showPict>
- <dontSearch> <false /> </dontSearch>
- <owner>2779</owner>
- <link rel="stylesheet" type="text/css" href="stylesheet_2443.css" />
- <content>
- <layer>background</layer>
- <id>27</id>
- <text>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
- </text>
- </content>
- <name></name>
- <script></script>
- </card>
-
-
- card_3009.xml
- <?xml version="1.0" encoding="utf-8" ?>
- <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
- <card>
- <id>3009</id>
- <filler1>0</filler1>
- <cantDelete> <false /> </cantDelete>
- <showPict> <true /> </showPict>
- <dontSearch> <false /> </dontSearch>
- <owner>2779</owner>
- <link rel="stylesheet" type="text/css" href="stylesheet_2443.css" />
- <part>
- <id>1</id>
- <type>button</type>
- <visible> <true /> </visible>
- <reserved5> 0 </reserved5>
- <reserved4> 0 </reserved4>
- <reserved3> 0 </reserved3>
- <reserved2> 0 </reserved2>
- <reserved1> 0 </reserved1>
- <enabled> <true /> </enabled>
- <rect>
- <left>359</left>
- <top>296</top>
- <right>499</right>
- <bottom>308</bottom>
- </rect>
- <style>radiobutton</style>
- <showName> <true /> </showName>
- <highlight> <false /> </highlight>
- <autoHighlight> <false /> </autoHighlight>
- <sharedHighlight> <true /> </sharedHighlight>
- <family>0</family>
- <titleWidth>0</titleWidth>
- <icon>0</icon>
- <textAlign>center</textAlign>
- <font>Chicago</font>
- <textSize>12</textSize>
- <textStyle>plain</textStyle>
- <name>Import Data Base</name>
- <script>--to use this button, prepare at least as many HC background fields
- --as fields separated by tabs of your text data file
- -- by Ted Tripp, 4588 CR 523, Bayfield, CO 81122, 303-884-9029
- on mouseUp
- ask "Import text from which file?"
- if it is empty then exit mouseUp
- put it into fileName
- open file fileName
- set cursor to 4
- repeat
- read from file fileName until return -- get first record
- if it is empty then
- doMenu "Delete Card"
- close file fileName
- exit mouseUp
- end if
- put it into data
- repeat with i = 1 to the number of fields
- put offset(tab,data) into num --gets first field (until tab)
- if num is 0 then -- last field of record has no tab
- put data into field i -- writes last field
- delete last char of field i -- deletes return char
- if first char of field i is quote then
- delete first char of field i
- delete last char of field i
- end if
- exit repeat -- stops
- end if
- put char 1 to (num - 1) of data into field i -- writes first field
- if first char of field i is quote then
- delete first char of field i
- delete last char of field i
- end if
- delete char 1 to num of data -- gets rid of field
- end repeat
- doMenu "New Card"
- end repeat
- close file fileName
- set cursor to 1
- end mouseUp
- </script>
- </part>
- <content>
- <layer>background</layer>
- <id>17</id>
- <text>G0IBL</text>
- </content>
- <content>
- <layer>background</layer>
- <id>38</id>
- <text>MIKE BROOKER
- </text>
- </content>
- <content>
- <layer>background</layer>
- <id>21</id>
- <text>4 Sharpness Court
- </text>
- </content>
- <content>
- <layer>background</layer>
- <id>22</id>
- <text>London</text>
- </content>
- <content>
- <layer>background</layer>
- <id>24</id>
- <text>SE15 </text>
- </content>
- <content>
- <layer>background</layer>
- <id>25</id>
- <text>071 701 7664</text>
- </content>
- <name></name>
- <script></script>
- </card>
-
-
-